The Programmer Disk

home *** CD-ROM | disk | FTP | other *** search

/ The Programmer Disk / The Programmer Disk (Microforum).iso / xpro / vb3 / pro6 / form1.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1993-11-13 | 13.2 KB | 325 lines

Form1 Multi-Column Demo MS Sans Serif Form15 MList4 MListBox MList3 MListBox MS Sans Serif MList2 MListBox MS Sans Serif MList1 MListBox Label4 %Multi-Column Style Bitmapped List Box Label3 Bitmapped List Box Image1 Label2 2Normal List Box - Color, Font, Bitmaps, CheckBoxes Label1 Multi-Select Sorted List Box mnuMultiSelect &Multi-Select mnuSelected &Selected mnuMListCount &ListCount mnuSelCount Sel&Count mnuMListIndex List&Index mnuRange Select/&Deselect Range mnuNormal &Normal mnuText &Text mnuListCount &ListCount mnuListIndex List&Index mnuRegular &Regular mnuBitmap &Bitmap mnuCheckBox &CheckBox mnuCheckRange Check/&Uncheck Range mnuBitmapped &Bitmapped mnuLeft &Left mnuTop mnuRight &Right mnuBottom &Bottom mnuMisc M&isc mnuItemData &ItemData mnuTopIndex &TopIndex mnuNewIndex &NewIndex mnuList &List mnuActiveRegion &ActiveRegion mnuChecked Checked mnuCheckItem2 Check Item 2 mnuUncheckTwo Uncheck Item Two mnuTest Test Horz. Scroll Bar @ Form_Load MList1 MList2 MList2_Click Constant- DT_RIGHT& DT_VCENTERI DT_SINGLELINE DrawFlagsr DrawRegions Flags Command1_ClickD Count Command4_Click2 Command2_Click SelCount` Command3_Click aString Selectedz Command5_Click Command6_Click ItemData( ListCount Command7_Click TopIndex& Command8_ClickW Interval ItemLength' mnuSelected_Click MList1_Click MList1_DblClick: mnuMSText_ClickK mnuText_Clickb mnuMListCount_Clickx mnuListCount_Click mnuSelCount_Click mnuItemData_Click mnuMListIndex_Click1 ListIndex mnuListIndex_Click mnuTopIndex_Click mnuNewIndex_Click NewIndex0 mnuList_Click Listu mnuActiveRegion_Click TextRegion ListRegion ActiveRegion mnuChecked_Click; Checked mnuBitmap_Click ImageType mnuCheckBox_Clicku mnuRegular_Click Picture1_Click ItemPicture Image1 Picture MList2_DblClick DefPictureL ItemForeColor ItemBkColorC BackColor) ForeColor mnuCheckItem2_Click mnuUncheckTwo_Click MList3 mnuLeft_Click Alignment mnuTop_Click mnuRight_Click mnuBottom_Click MList49 MList4_Click SendMessage wMsgq wParamb lParam LB_SETCOLUMNWIDTH SendMessaeg MList3_Click mnuRange_Click RangeBegin RangeEnd RangeSelected RangeStart mnuCheckRange_Click RangeChecked mnuTest_Click SetHzScrollN Command1_Click MList1 Count: Command2_Click MList1 SelCount: Command4_Click MList2 Count: Command5_Click MList2 Selected Text: Command7_Click Command8_Click MList2.TopIndex = Form_Load Columns are separated by the Tab characterr We could set the number of columns ourselves by setting MList1.DrawRegions = Item1 Information One Item2 Information Two Item3 Information Three Item4 Information Four Item1 Information One Item2 Information Two Item3 Information Three Item4 Information Four Print the default flags for item 1t Item1 DrawFlags: When you set or change DrawRegions, the default flags are DT_LEFT + DT_VCENTER + DT_SINGLELINE You can set the flags to any legal value used by the Windows API call DrawText Change the dollar column to be right justified insteada Item1 Information One $45.00 Item2 Information Two $36.69 Item3 Information Three $2234.00 Item4 Information Four $4.00 Item5 Information Five $0.25 Item1 Information One $45.00 Item2 Information Two $36.69 Item3 Information Three $2234.00 Item4 Information Four $4.00 Item5 Information Five $0.25 Item1 Information One $45.00 Item2 Information Two $36.69 Item3 Information Three $2234.00 Item4 Information Four $4.00 Item5 Information Five $0.25 MList2.ItemLength(3) = 1300G Print the default flags for item 1 Item3 DrawFlags: ItemLength(2): Bitmap string one Bitmap string two Bitmap string three Bitmap string four Bitmap string five X = SendMessage(MList4.hWnd, LB_SETCOLUMNWIDTH, 100, 0) MList1_Click MsgBox "Multi-Select List Box Click", 0, "MList1"" MList1_DblClick MsgBox "Multi-Select List Box Double Click", 0, "MList1" MList2_DblClick mnuActiveRegion_Click MList2.TextRegion = MList2 Replace MList2.ListRegion(3) = MList2 Replace mnuBitmap_Click mnuBottom_Click mnuCheckBox_Click mnuChecked_Click MList2.Checked( ) = Checked MList2.Checked( ) = Unchecked mnuCheckItem2_Click mnuCheckRange_Click mnuItemData_Click ItemData mnuLeft_Click mnuList_Click Replacement $100.00 mnuListCount_Click MList2.ListCount = MList2 mnuListIndex_Click MList2.ListIndex = MList2 mnuMListCount_Click MList1.ListCount = MList1 mnuMListIndex_Click MList1.ListIndex = MList1 mnuMSText_Click Text-MList1 mnuNewIndex_Click Item21 Information TwoOne MList1.NewIndex = MList1 mnuRange_Click mnuRegular_Click mnuRight_Click mnuSelCount_Click MList1.SelCount = MList1 mnuSelected_Click False mnuTest_Click mnuText_Click MList2 mnuTop_Click mnuTopIndex_Click MList2.TopIndex = MList2 mnuUncheckTwo_Click